COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DE TTYLIRECHO (X Y)
C00004 ENDMK
C⊗;
(DE TTYLIRECHO (X Y)
	(SETQ lu (TYI))
	(TTYS X Y (ASCII lu))
	lu))

(DE TTYNBIN (X Y)
	; lecture sur la TTY d'un nb ;
	(WHILE (OR (LZP (SETQ N (- (TTYLIRECHO X Y)  \60)))
		   (GT N 9))
		(INCR Y))
	(INCR Y)
	(WHILE (GE \71 (SETQ char (TTYLIRECHO X Y)) \60)
	   (SETQ N (+ (* N 10) (- char \60)))
	   (INCR Y))
	N))
; test d'ecriture sur la 1ere ligne ;

(DE TTYS (X Y S)
    ; edite la chaine S sur un ecran en TTY DM mode ;
    ; en position : Xieme ligne Yieme colonne ;
    (DISPLAY (APPEND [\177 \14 (LOGXOR \140 Y) (LOGXOR \140 X)]
		   (MAPCAR (MAKLIST S) 'CASCII)))))

(DE EFFACE-ECRAN ( ;; X L)
	(CALLI \-10  1)  ; freeze UUO ;
	(SETQ X 0 L (DUPL " " 80))
	(REPEAT 24
	  (TTYS X 0 L)
          (INCR X))
	'VOILA))

(EFFACE-ECRAN)

; essaie d'ecriture ;

(TTYS 0 0 "ligne 0 colonne 0")
(TTYS 3 10 "ligne 3 colonne 10")
(TTYS 6 20 "ligne 6 colonne 20")

(TTYS 18 0 "?")
(SETQ lu (TTYNBIN 18 1))
(TTYS 19 1   lu))
(TYI)
(RESET T)

(POUR EVAL (PRINT "Efface-ecran"))